home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS036.dsk / CAT INIT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  740b  |  25 lines
  1. 5  DIM A$(40),B$(40)
  2. 10 D$ = "<CTRL-D>"
  3. 20  PRINT D$;"OPEN CAT,L80"
  4. 30  PRINT D$;"READ  CAT,R0"
  5. 40  INPUT I
  6. 50  PRINT D$;"CLOSE CAT"
  7. 60  CALL  -936
  8. 62  PRINT "THIS PROGRAM INITIALISES THE MENU": PRINT : PRINT "AND ADDS PROGRAMS TO IT.": PRINT 
  9. 70  PRINT "INPUT THE PROGRAM DISCRIPTION"
  10. 80  PRINT "THEN THE PROGRAM NAME"
  11. 95  PRINT "PROGRAM DISCRIPTION 'END' STOPS PROGRAM"
  12. 96 I = I +1
  13. 100  PRINT "PROGRAM DISCRIPTION -- ";I: PRINT 
  14. 110  INPUT A$: PRINT 
  15. 115  IF A$ = "END"  THEN  END 
  16. 120  PRINT "PROGRAM NAME -- ";I: PRINT 
  17. 130  INPUT B$: PRINT 
  18. 135  IF B$ = "END"  THEN  END 
  19. 140  PRINT D$;"OPEN CAT,L80"
  20. 150  PRINT D$;"WRITE CAT,R";I
  21. 160  PRINT A$: PRINT B$
  22. 170  PRINT D$;"WRITE CAT,R0"
  23. 180  PRINT I
  24. 185  PRINT D$;"CLOSE CAT"
  25. 190  GOTO 95